Question ADSI, DirectoryEntry et {System.__ComObject}

Bonsoir,

J'essai de me connecter sur un objet de l'ad avec :

[code:1]$userpath = \"LDAP://CN=testuser,OU=Domain Admins,DC=mondomaine,DC=local\"
$CreatedUser = [ADSI]$userpath[/code:1]

J'essai de recuperer, en vain, la date d'expiration du compte contenue dans la propriété 'accountexpires' ( de type {System.__ComObject} )

Le but est de créer un nouvel objet PSObject, qui contiendra les valeurs de certains attributs d'un compte Active directory :

[code:1]function MakeObject {

param (
$Firstname,
$LastName,
$DisplayName,
$Mail,
$CreationDate,
$Department,
$City,
$Manager,
$Title,
$Description,
$ExpirationDate,
$PersonalFolder,
$DistinguishedName,
$HomeMDB
)

$svrObj = New-Object PSObject
$svrObj | Add-Member NoteProperty \"Firstname\" \"$Firstname\"
$svrObj | Add-Member NoteProperty \"LastName\" \"$LastName\"
$svrObj | Add-Member NoteProperty \"DisplayName\" \"$DisplayName\"
$svrObj | Add-Member NoteProperty \"Mail\" \"$Mail\"
$svrObj | Add-Member NoteProperty \"CreationDate\" \"$CreationDate\"
$svrObj | Add-Member NoteProperty \"Department\" \"$Department\"
$svrObj | Add-Member NoteProperty \"City\" \"$City\"
$svrObj | Add-Member NoteProperty \"Manager\" \"$Manager\"
$svrObj | Add-Member NoteProperty \"Title\" \"$Title\"
$svrObj | Add-Member NoteProperty \"Description\" \"$Description\"
$svrObj | Add-Member NoteProperty \"ExpirationDate\" \"$ExpirationDate\"
$svrObj | Add-Member NoteProperty \"PersonalFolder\" \"$PersonalFolder\"
$svrObj | Add-Member NoteProperty \"DistinguishedName\" \"$DistinguishedName\"
$svrObj | Add-Member NoteProperty \"HomeMDB\" \"$HomeMDB\"

##more fields here..
write-output $svrObj

}[/code:1]

Puis d'ajouter le contenu dans un fichier csv existant :

[code:1]$userpath = \"LDAP://CN=testuser,OU=Domain Admins,DC=mondomaine,DC=local\"
$CreatedUser = [ADSI]$userpath

$report = \"C:\Powershell\Scripts\projet user creation eutelsat\1.0\Logs\UserCreationReport_$((Get-Date).year).csv\"

# si un fichier de log à été trouvé
if (Test-Path $report)
{
# on importe le fichier csv
Write-Host \"fichier log existe\"
[System.Object[]]$users = Import-Csv $report
}
else
{
# Write-Host \"fichier log n'existe pas\"
$users = @()
}

#ajout de l'objet au contenu du fichier csv
$users += MakeObject -Firstname $CreatedUser.givenname -LastName $CreatedUser.sn -DisplayName $CreatedUser.DisplayName `
-Mail $CreatedUser.mail -CreationDate $CreatedUser.whencreated -Department $CreatedUser.Department `
-City $CreatedUser.l -Manager $CreatedUser.Manager -Title $CreatedUser.Title -Description $CreatedUser.Description`
-ExpirationDate $CreatedUser.accountExpires -PersonalFolder \"\\server\users\monuser\" `
-DistinguishedName $CreatedUser.DistinguishedName -HomeMDB $CreatedUser.HomeMDB

# export vers le fichier csv
$users | Export-csv -Path $report -NoTypeInformation -Force

Invoke-Item $report[/code:1]

$CreatedUser.accountExpires est de type [System.__ComObject] et je n'arrive pas à en récuperer le contenu.

J'ai cru comprendre qu'une solution de conversion existait avec le framework mais je n'ai pas reussi à l'appliquer

Je pourrais utiliser cette solution :

[code:1]$searcher = New-Object DirectoryServices.DirectorySearcher
$searcher.filter = \"(&(samaccountname=testuser))\"
$results = $searcher.findone()
$results.properties.accountexpires
[datetime]::fromfiletime($results.properties.accountexpires[0])
[/code:1]
Mais jaimerai pouvoir utiliser la premiere methode en me connectant sur l'objet avec son chemin LDAP

Pourriez vous m'aider à accéder a cet objet de type{System.__ComObject} svp

Merci.

Clément

Message édité par: clem, à: 16/11/09 22:12<br><br>Message édité par: clem, à: 17/11/09 12:18

Bonjour Laurent,

[code:1]$CreatedUser.InvokeGet('accountExpires') [/code:1]:

Exception lors de l'appel de « InvokeGet » avec « 1 » argument(s) : « Unknown name. (Exception from HRESULT: 0x80020006 (DISP_E_UNKNOWNNAME)) »
à : ligne:48 caractère:27
+ $a = $CreatedUser.InvokeGet &lt;&lt;&lt;&lt; ('accountExpires')

Et :

[code:1]$a = $CreatedUser.Psbase.InvokeGet('accountExpires')
$a[/code:1]

$a ne renvoit rien hélas